(require "../queue.ss")

(use-deque deque@)

empty
(insert empty 1)
(first (insert empty 1))
(remove-last (insert empty 1))
(last (insert (insert empty 1) 2))

(last (remove (insert (insert empty 1) 2)))

(fold cons '() (remove (insert (insert (insert empty 1) 2) 3)))

